home *** CD-ROM | disk | FTP | other *** search
/ Ultra Gameplayers 101 / Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso / pc / new_ugp.dxr / 00049_Platforms Submenu Init.ls < prev    next >
Encoding:
Text File  |  1997-07-10  |  2.7 KB  |  59 lines
  1. on exitFrame
  2.   global baseMemory
  3.   set newMenu to CreateMenu([#statusMessage: "Select a Platform for a list of games."])
  4.   SetStatusMember(newMenu, [#statusMember: "platforms status"])
  5.   mmButton(newMenu, [#downMember: "ugpG_61"])
  6.   quitButton(newMenu, [#downMember: "ugpG_71"])
  7.   ShowVolumeControl()
  8.   set hideSprite to 13
  9.   set bgSprite to 3
  10.   set textListSprite to 1
  11.   set launchButton to 30
  12.   set hotSpriteList to [21, 22, 23, 24, 25, 26]
  13.   set hiliteSpriteList to [14, 15, 16, 17, 18, 19]
  14.   NewImageDisplay(newMenu)
  15.   NewTextDisplay(newMenu, [#memberNum: "platform text", #initText: " "])
  16.   NewVideoDisplay(newMenu, [#cleanup: 1])
  17.   NewDemoButton(newMenu, [#launchButton: launchButton])
  18.   set textList to NewObject(newMenu, "Text Display Class", [#spritenum: textListSprite, #windowBottom: 287])
  19.   CreateTextSlider(newMenu, [#sliderSprite: 28, #sliderBottom: 263, #textDisplay: textList])
  20.   set button to BasicButton(newMenu, [#hotSprites: [launchButton]])
  21.   AddDown(button, the demoButton of newMenu)
  22.   repeat with hsIndex = 1 to count(hotSpriteList)
  23.     set hotSprite to getAt(hotSpriteList, hsIndex)
  24.     set hiliteSprite to getAt(hiliteSpriteList, hsIndex)
  25.     SetPlatformButtons(newMenu, hotSprite, hiliteSprite, hideSprite)
  26.   end repeat
  27.   SetGameList(newMenu, textListSprite)
  28.   cursor(-1)
  29.   put "Memory used:" && baseMemory - the freeBytes
  30. end
  31.  
  32. on CreateTextSlider newMenu, params
  33.   set button to BasicButton(newMenu, [#hotSprites: [getProp(params, #sliderSprite)]])
  34.   AddDown(button, NewObject(newMenu, "Text Slider Class", params))
  35. end
  36.  
  37. on SetPlatformButtons newMenu, hotSprite, hiliteSprite, hideSprite
  38.   set sName to spritename(hotSprite)
  39.   set message to "Games for the" && sName & "."
  40.   set destination to "platforms" && sName
  41.   set button to BasicButton(newMenu, [#hotSprites: [hotSprite], #statusMessage: message, #destination: destination])
  42.   set rollParams to [#showSpriteList: [hiliteSprite], #hideSpriteList: [hideSprite]]
  43.   AddRoll(button, NewObject(newMenu, "Visibility Hilite Class", rollParams))
  44. end
  45.  
  46. on SetGameList newMenu, textListSprite
  47.   global titleDatabase
  48.   set platformName to the frameLabel
  49.   delete word 1 of platformName
  50.   set gameList to getrecords(titleDatabase, platformName, "platforms")
  51.   if not listp(gameList) then
  52.     put "No games in that category."
  53.   else
  54.     set button to BasicButton(newMenu, [#hotSprites: [textListSprite], #statusMessage: "Select a Game."])
  55.     set gameParams to [#gameList: gameList, #textDisplay: the textDisplay of newMenu, #imageDisplay: the imageDisplay of newMenu, #videoDisplay: the videoDisplay of newMenu, #demoButton: the demoButton of newMenu, #memberID: the memberNum of sprite textListSprite, #normalColor: 6, #hiliteColor: 5]
  56.     AddDown(button, NewObject(newMenu, "Game Manager Class", gameParams))
  57.   end if
  58. end
  59.